home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / MAC / MPW_TOOL / TOOLS / TOOLS_WI / PERL / OS2 / EG / ALARM.PL next >
Text File  |  1992-01-04  |  260b  |  17 lines
  1. sub handler {
  2.   local($sig) = @_;
  3.   print "Caught a SIG$sig -- shutting down\n";
  4.   exit(0);
  5. }
  6.  
  7. $SIG{'INT'} = 'handler';
  8. $SIG{'QUIT'} = 'handler';
  9. $SIG{'ALRM'} = 'handler';
  10.  
  11. print "Starting execution ...\n";
  12. alarm(10);
  13.  
  14. while ( <> ) {
  15. }
  16. print "Normal exit.\n";
  17.